home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / FixQuotes.AmiCAD < prev    next >
Text File  |  2000-11-12  |  378b  |  20 lines
  1. /*
  2. $VER: FixQuotes.AmiCAD 1.0 (12 Novembre 2000) R.Florac
  3.  
  4. La chaîne passée en argument est traitée de manière à doubler les guillemets.
  5. Doubles double-quote marks in strings to be passed to QuickFile.
  6.  
  7. Renvoie la chaîne modifiée.
  8. Returns the modified string.
  9. */
  10.  
  11. str = arg(1)
  12.  
  13. t=''
  14. do i=1 to length(str)
  15.     c = substr(str,i,1)
  16.     if c='"' then c='""'
  17.     t=t||c
  18. end
  19. return t
  20.